(** 
    Ast.ml

    Bozman Çagdas <bozman.cagdas@gmail.com> - 2011
    Razakamiadana Tefin <tefy.razaka@gmail.com>   - 2011
*)

type req = 
  | RSimpl of criteria
  | RMult of criteria * req

and criteria = dist * int

and dist =
  | L of string
  | P of string
      
